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- MUTEX WAIT ROUTINES 


TOR ; DETAILED 
becalfee 

RWAIT = RESOURCE WAIT 
SLOCKWNOWAIT = LOCK MUTEX FOR WRI 
SIOLOCKW = LOCK 1/0 DATA pate MUT 
SLOCKW = LOCK MUTEX FOR WRIT 
SIOLOCKR = LOCK 1/0 DATABASE MUTE 
SLOCKR = LOCK MUTEX FOR READ 
SRAVAIL = DECLARE RESOURCE AVAILA 
SIOUNLOCK = UNLOCK I/0 DATABASE M 
SUNLOCK = UNLOCK MUTEX 
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TEX = MUTEX WAIT ROUTINES 16-SEP-1986 00:37:32 VAX/VMS Macro v06- 

V04=000 ~SEe 1882 BO:25:3e PaNcvas acre vOKe0 a 
LTITLE MUTEX = MUTEX WAIT ROUTINES 
“IDENT "v0G-000' 


MARAAARAAALALAALASASLLSALE LASSE ARES EE ESE SESE SESE RSE SERS EERE SECC SEES REESE EIT 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
1G! UIPRENT CORPORATION, MAYNARD, MASSACHUSETTS. 


ED_UNDER A LICENSE AND MAY BE USED AND COPI 
TH SUCH LICENSE AND WITH T 
OPYRIGHT NOTICE. THIS SOFTWARE OR ANY OT 
E PROVIDED OR OTHERWISE MADE AVAILABLE TO A 
E TO AND OWNERSHIP OF THE SOFTWARE IS HERE 
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ON. 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Compokat ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


BILIT 
IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EXECUTIVE, SCHEDULER 


ABSTRACT: 
THIS MODULE CONTAINS THE ROUTINES WHICH IMPLEMENT THE MUTEX 
LOCK AND UNLOCK SERVICES FOR INTERNAL EXECUTIVE USE. 
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ENVIRONMENT: 
MODE = KERNEL 
PAGE 
: -SBTTL HISTORY ; DETAILED 
; AUTHOR: R. HUSTVEDT CREATION DATE: 25-AUG-76 
: MODIFIED BY: 
; v03-003 $sa0022 Stan Amway 2-Apr-1984 
: Backed out SSA0005. It was temporary. 
; vO3-002 $$a000s Stan Amwa 10-Jan-1984 
3 Added code to maintain PMs MWAIT transition counters. 
; The counters (in MDAT) and supporting code will be removed 
; before V4 release. 
; v03-001 RQW0168 Ralph 0. Weber 3-MAR-1983 


EX WAIT ROUTINE 
RY ; DETAILED 
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S 
E WAIT “SEP=1 SYS. SRCIA UTEX.MAR; 
-SBTTL SCHSRWAIT = RESOURCE WAIT 


ON: 


ae 
eas D IPTI 
soba OF een OF A PROCESS UNTIL REQUIRED 


RESOUR 


; INPUT PARAM 
MBER FOR WHICH TO WAIT 


HICH TO RESUME 
H WHICH TO RESUME 


U 
S 
i 
T 


I 


QO LFOLO 
“~SoOoU OSC Um 


ashe QUEUE HEADER 


; OUTPUTS: 
RO-R3 PRESERVED 


; IMPLICIT OUTPUTS: 
s eee TBS eee 


SoOooooooooooo 
OOOO oCOOCOSCoOSooSo 


OOOCOCCoccccosoo 


; SIDE EFFECTS: 
* TBS ** 


SCHSRWAIT:: iii RESOURCE WAIT ENTRY POINT 
BBSSI R0O,G*SCHSGL_RESMASK,10$ i32 SET WAITING FLAG 


O'GF 50 
60 0000000 8 10$: BRB WAITR Ii AND ENTER WAIT STATE 
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TEX = MUTEX WAIT ROUTINES 19-SEP-1984 00:37:32 AX/VMS Macro V04-0 Page 5 
-000 SCHSLOCKWNOWAIT = LOCK MUTEX FOR WRITE W 5-SEP-1984 03:45: SYS. SRCIMUTEX.MAR; (1) 

A ee .SBTTL SCHSLOCKWNOWAIT = LOCK MUTEX FOR WRITE WITHOUT WAITING 
A 1 i+ 
A 106: FTTH BE DESCR IPTION: 
A 195 ; WNOWALT LOCKS THE SPECIFIED MUTEX FOR EXCLUSIVE WRITE ACCESS 
A 1 gi : THe “P ROTECTED STRUCTURE. IF ANOTHER PROCESS HAS ALREADY CLAIMED 
A ; THE MUTEX, THEN THIS ROUTINE RETURNS A FAILURE INDICATION. 

aE 
A 131 : CALLING SEQUENCE: 
A 4 § 3 BSB/JSB SCHSLOCKWNOWAIT 
. as 
A 135 : INPUT PARAMETERS: 

00A 1 : ; RO = ADDRESS OF MUTEX 

0 A ; R4 = PCB ADDRESS OF CURRENT PROCESS 

00A 1 § : IMPLICIT 1 {meurs: 

QOA 140 ; MWAIT = MUTEX WAIT QUEUE HEADER 

00a 141 ; stp OF "CURRENT PROCESS 

44 14g 3 3 MUTEX LOCATED BY RO 

000A 144 OUTPUTS 

QO0A 145 ; RO M BIT SET IF LOCKED SUCCESSFULLY 

O0A 146 : LOW BIT CLEAR IF MUTEX IN USE 

QOA 147 ; R1-R3 PRESERVED 

0A 148 : IPL = ASTDEL 

00A 180 : IMPLICIT OUTPUTS: 

BoA 13) 3 eee TBS eee 

OOA 138 3 SIDE EFFECTS: 

OOA 154 ; * TBS #e* 

ate 

GOA 133 SCHSLOCKWNOWAIT: : 

O0A 138 SETIPL #IPL$_SYNCH tig RAISE 19 SYNCH IPL 

08 60 10 €6 000d 15 BBSSI oars? URT (RO) ,20$ tit SET WRITE PENDING 
60 86 or 160 Inch MTX$W_OWNCNT (ROS 333 RAISE Oy NER COUNT poe 
50 01 3C iz 168 MOVZWL #SS$_NORMAL,RO ti: INDICAT t SUCCESSFUL COMPLETION 
2 11 0018 16 BRB t33 AND aie GE WITH COMMON EXIT CODE 
60 B7 OO1A 164 108: DECW  MTX$W_OWNCNT(RO) ti: CORRECT COUNT 
D4 O01C 165 20$:  CLRL ti: SET FA ILURE RETURN INDICATION 
1E 166 SETIPL #IPL$_ASTDEL ti: LOWER TO ASTDEL 
05 0021 16 RSB :"AND RETURN 
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SCHSIOLOCKW = LOCK I/ g- -SEP-19 1984 25:38 MUTE — 3) 


SYS.SRCJMUTEX.MAR; 1 


9 .SBTTL SCHSIOLOCKW = LOCK 1/0 DATA BASE MUTEX FOR WRITE 
i i FUNCTIONA DESCRIPTION: 
26 3 : SCHSIOLOCKW RETURNS TO THE CALLER WHEN THE I/O DATABASE MUTEX 
123 HAS BEEN LOCKED FOR WRITE ASSURING EXCLUSIVE ACCESS. 
175 ; 
178 : 
0 177 ; CALLING SEQUENCE: 
0 128 : BSB/JSB SCHSIOLOCKW 
0 10 3 
6 181 : INPUT PARAMETERS: 
00 é R4 = PCB ADDRESS OF CURRENT PROCESS 
$8 184 ; IMPLICIT LAE 
0 185 ; - MUTEX WAIT QUEUE HEADER 
0 1 6 ; oC OF “CURRENT OCESS 
0 fi 1/0 DATABASE MUTER 
00 189 : OUTPUTS: 
0 190 : RO = ADDRESS OF I/0 DATABASE MUTEX 
00 191 : R1-R3 PRESERVED 
00 198 ; IPL = ASTDEL 
09 194 : IMPLICIT OUTPUTS: 
0 195 : wee TBS eee 
00 196 : 
0 197 ; SIDE EFFECTS: 
0 198 ; TBS *ee 
0 199 : 
es 
00 08 SCHSIOLOCKW: : : LOCK I/O DATA BASE FOR WRITE ACCESS 
50 00000000'EF 9€ 00 0 MOVAB IOC$GL_MUTEX,RO + GET ADDRESS OF 1/0 DATABASE MUTEX 


H 14 
TEX = MUTEX WAIT ROUTINE 16-SEP-1984 00:37: AX/VMS M 9 VO4=0 p 7 
y04~000 SCHBLOCKU = LOTe AUTEX FOR WRITE ~SEb 1982 89:25:38 PaNCMas Maceo vore0 ah 
ee .SBTTL SCHSLOCKW = LOCK MUTEX FOR WRITE 
$i ; FUNCTIONA DESCRIPTION: 
; SCHSL OCKw RETURNS TO THE CALLER WHEN THE SPECIFIED MUTEX 
9 : HA BEEN LOCKED FOR WRITE ASSURING EXCLUSIVE ACCESS TO THE 
10 PROTECTED STRUCTURE. 
i: 
14 CALLING SEQUENCE: 
15 ; BSB/JSB SCHSLOCKW 
mit 
9 18 : INPUT PARAMETERS: 
029 219 ; RO = ADDRESS OF MUTEX 
0 3 0; ; R4 = PCB SDDRESS OF CURRENT PROCESS 
029 gi ; IMPLICIT 1 Mer 
029 ; MWAIT = MUTEX WAIT QUEUE HEADER 
029 4; 5cB OF “CURRENT PROCESS 
00 3 FE MUTEX LOCATED BY RO 
00 9 3 OUTPUTS 
029 8; RO-R3 PRESERVED 
09 4 Ri 3 IPL = ASTDEL 
029 1 IMPLICIT OUTPUTS: 
83 2 ¢: : eee TBS eee 
029 4 SIDE EFFECTS: 
029 5 : eee TBS ee 
029 $i : 
09 es oa 
029 9 SCHSLOCKW: : : LOCK MUTEX FOR WRITE 
0029 240 10$:  SETIPL #IPL$_SYNCH ts; RAISE TO SYNCH IPL 
0860 10 £6 00 41 BBSSI PATXSO WRT, (RO), 30 ti: SET WRITE PENDING 
60 B86 00 6 4¢ INCW MTX$W_OWNCNT(ROS ::: RAISE OWNER COUNT 
02 12 00 4 BNEQ  20$ ti: WAIT IF BUSY 
16011 0 4 44 BRB LKEX ti: MERGE WITH COMMON EXIT CODE 
6 rt 208: tig MUST WAIT FOR EXCLUSIVE USE 
60 87 6 4 DECW  MTX$W_OWNCNT(RO) aE CORRECT COUN NT 
43.10 03 48 30$: BSBB  WAITM AND WAIT FOR MUTEX 
ED 11 A 26 BRB 10$ ‘*RePEAT” LOCK OT TEMPY WHEN 
03c 250 t RESCHEDULED 


TEX TEX WAIT ROUTINES 16-SEP-1984 AX/VMS Macro v04-00 Pa NI 
-000 SCHSIOLOCKR = LOCK 1/0 DATABASE MUTEX FO §- Ee 1 3be 9:25 38 YOYS SRCIMUTEX MARS as d) 


«SBTTL SCHSIOLOCKR = LOCK 1/0 DATABASE MUTEX FOR READ 


R WHEN NO WRITE 

1/0 DATABASE W 
SED. IPL IS RAI 
OWNED AND THE P 


; CALLING SEQUENCE : 
BSB/JSB SCHSIOLOCKR 


INPUT PARAMETERS: 
; R4 = CURRENT PROCESS PCB ADDRESS 


puneres CWSCOCRUA 
MWAIT = ee dd WAIT QUEUE HEADER 
PCB OF “CURRENT PROCESS 
1/0 DATABASE MUTEX 


; OUTPUTS: 
; RO = a sett t OF 1/0 DATABASE MUTEX 
Ri-R3 aetae RVED 

IPL = ASTDEL 


; IMPLICIT OUTPUTS: 
; * TB 


S ree 


; SIDE wad pf 2 
TBS * 


POIOOAIPVAAAAOOIOOIAOAIOOOOOAOOOOOOAAOAOOOOAOOO 


SCHSIOLOCKR: : ; LOCK I/0 DATABASE FOR READ ectes? 


50 O0000000°EF 9€ MOVAB JOCS$GL_MUTEX,RO ; GET ADDRESS OF 1/0 DATA BASE MUTEX 


nm 


J 14 
TEX TEX WAIT ROUTINES 16-SEP-1984 00:37: AX/VMS Macro v04-0 P 9 
y04~000 SCHSLOCKR = Lbck MUTEX FOR READ mets 7 90:30:38 SYS. SRCIMUTEX.MAR; ww ew v 
4 e .SBTTL SCHSLOCKR = LOCK MUTEX FOR READ 
4 : FUNCTIONAL DESCRIPTION 
4 91: HSLOCKR RETURNS TO THE CALLER WHEN NO WRITERS OWN THE 
4 36 ; SPECIFIED MUTEX. THUS THE STRUCTURE PROTECTED BY THE MUTEX 
4 93 : WILL REMAIN UNCHANGED UNTIL THE MUTEX IS RELEASED. IPL IS 
4 9% ; RAISED TO PREVENT AST DELIVERY WHILE THE MUTEX IS OWNED AND 
04 99 : THE PROCESS WILL NOT BE OUTSWAPPED. 
$¢ 38 > CALLING SEQUENCE: 
04 38 ; BSB/JSB SCHSLOCKR 
8 00 : INPUT PARAMETERS: 
004 01 ; RO = ADDRESS OF MUTEX 
004 Oe ; R4 = CURRENT PROCESS PCB ADDRESS 
04 04 : IMPLICIT mrt: 
04 5: SCH$GQ_MWAIT - MUTEX WAIT QUEUE HEADER 
04 06 : pce OF “CURRENT PROCESS 
Soc on — 
004 09 : OUTPUTS 
004 10: RO-R3 PRESERVED 
004 1 : IPL = ASTDEL 
004 i ; IMPLICIT OUTPUTS: 
Boe 1% 3 wee TBS eee 
004 16 : SIDE EFFECTS: 
004 17 ; TBS ee 
004 18; 
Beg i 
04 1 SCHSLOCKR:: : LOCK MUTEX FOR R 
004 : SETIPL #IPL$_SYNCH ti; RAISE TO SYNCH 
3060 10 €0 0046 ; BBS #ATXSU_WRT,(RO),RDWAIT 33; WAIT JF WRITE MeENDING OR 
B6 004A 5 INCW MTX$W_OWNCNT(RO) if INCREASE OWNER COUNT 
OA AG 9¢ 91 004 $ LKEX: CMPB #DYNSC_PCB,PCBSB_ TYPE (R4S" ; CHECK FOR PCB 
12 005 BNEQ 208 ; BUG CHECK IF NOT PCB 
OF AG «6 B6O005 8 INCW PCBSW_MTXCNT(R4) t:; NOTE IN PCB ALSO 
01 OF AS B81 005 9 CMPW = PCBSWTMTXCNT(R4) , #1 ; is THIS THE FIRST MUTEX IT OWNS? 
12 0059 0 BNEQ 10$ : BR IF OWNS MORE THAN 1 MUTEX 
38 AG AG 3 06 1 MOVB PCBSB_PRI(R4) Pcese PRIS SAV(R4); SAVE CURRENT PRIORITY 
9 AG 2F AG 6 : MOVB PCBSB~PRIB(R4S ,PCBSB_P RIBSAV( (R4); SAVE BASE PRIORITY 
0B AS «610 «91S: 006 CMPB 4s #16, PCBSB_PRI(R4) ; IS THIS A REAL TIME PROCESS? 
1A 069 4 BGTRU 10 : BR IF SO 
0B A4 90 0068 5 MOVE #15,PCB$B_PRI(R4) : ELSE FORCE TO LOWEST RT PRIORITY 
2F AG) «(OOF:CO90 06F 6 VB #15-PCBSB~PRIB(R4) : AND SET PRIORITY BASE T 
3 10$:  SETIPL #IPL$_ASTDEL t:; DROP TO ASTDEL 
05 id : ti: AND RETURN 
ooac 31 a ; 20$: BRW NOTPCB ; 
7A ty RDWAIT: zz MUST WAIT FOR READ 
C6 AF OOF zh 4¢ PUSHAL SCHSLOCKR ti: RETRY AFTER WAIT 
7D 344 WAITM: siz WAIT FOR MUTEX TO FREE 


——$—_____— — —— 


TEX 


-000 
6E 
04 A 
04 AE 05 10 Q 
4C AG 
Q0000000'GF = 64 
ry es 
C AG 
FF60° 
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SCHSLOCKR = LOCK MUTEX FOR READ 


ox lobe 00:32:32 YAX/vits Macro V04-0 


SYS.SRCIMUTEX.MAR; 


(SP) 333 FORM PC, PSL ON STACK 

4(SP) L 

#1PLS ASTDEL, #PSLSV IPL, #PSLSS FPL 4(SP) SET IPL TO ASTDEL 
RO,PCBSL_EFWM(R4) ii: SAVE ADDRESS OF mut x 

(RA) G*SCHSGQ MWAIT :iz INSERT AT HEAD OF WAIT QUEUE 
G*SCH$GQ_MWAIT+WOHSW_WOCNT :33 INCREMENT COUNT IN QUEUE 
#SCHSC MOAIT-PCBSU. STATE(R4) 

SCHSWATTL tig WAIT *GiTh STACK CLEAN, STATE SET 
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muTEX TEX WAIT ROUTINES 1 ~SEB-1984 00:37:32 VAX/Vits Macro v04-0 Page 11 
v04=000 SCHSRAVAIL = DECLARE RESOURCE AVAILABILI $-SEP-1984 03:45: SYS.SRCJMUTEX.MAR; (1) 
‘pe .SBTTL SCHSRAVAIL = DECLARE RESOURCE AVAILABILITY 
g . FUNCTIONA QRESCRIPT ION: 
; RAVAIL IS CALLED TO SIGNAL THE AVAILABILITY OF THE SPECIFIED 
: 60 : RESOURCE AND RELEASE ANY WAITING PROCESSES. 
OA 6¢ i : CALLING SEQUENCE: 
A 63 : BSB/JSB SCHSRAVAIL 
OA 65 INPUT PARAMETERS: 
A 66 ; RO = RESOURCE NUMBER 
O0A 68 ; IMPLICIT OUTPUTS: 
yh $3 : rer 
OOA 71 ; SIDE EFFECTS: 
00A 2 i : TBS *te 
00A 73: 
BA a i 
OA0 2 SCHSRAVAIL:: ; DECLARE RESOURCE pAVAILABILITY 
7D 00000000'GF 50 £7 OOAO 37 BBCCI RO sSCHSGL _RESMASK, EXIT’ CLEAR test WAITING FLAG 
00A8 378 DSBINT #IPL$ S $33 BLOCK Cy STEM EVENT 
45 11 OOAE 379 BRB UNLOC tre’ ti: MERGE WITH COMMON ove 


H 16 
TEX = MUTEX WAIT ROUTINES 16-SEP-1984 00:37:32 VAX/VMS Macro v06-0 Pose 1 
~$een19Re 89:25:3 MUTE age if, 


-000 SCHSIOUNLOCK = UNLOCK I/0 DATABASE MUTEX SYS.SRCJMUTEX.MAR; 
‘ -SBTTL SCHSIOUNLOCK = UNLOCK I/0 DATABASE MUTEX 
3 FUNCTIONA RESCRTET LON: 
4; SCH Sent aet aatraaTt OWNERSHIP OF THE I/0 DATABASE MUTEX AND 
S$; RE-AC WAITING PROCESSES IF THE MUTEX HAS BECOME 
§ 3 AVAILABLE AS AN CON SEQUENCE OF THIS UNLOCK REQUEST. 
8 3; CALLING SEQUENCE: 
9 3 BSB/JSB SCHSIOUNLOCK 
3 3; INPUT PARAMETERS: 
; 3 s R4 = PCB ADDRESS OF CURRENT PROCESS 
08 94 ; IMPLICIT tg 
tt 95; SCHSGQ_MWAIT = MUTEXT WAIT QUEUE HEADER 
0B 38 ; PCB OF CURRENT PROCESS 
$88 97 ; 1/0 DATABASE MUTEX 
0B 3 ; 
0B0 99 ; IMPLICIT OUTPUTS: 
00B0 400 ; eet TBS eee 
0080 401; 
Q00B0 4 ¢ 3 SIDE eereciss 
at 403 ; TBS *t* 
0B0 404; 
0080 405 ;-- 
0080 40 
0080 407 SCHSIOUNLOCK:: 3; UNLOCK 1/0 DATABASE MUTEX 
50 00000000 ' EF 9E 0080 408 MOVA B I1OCSGL_MUTEX,RO ; GET ADDRESS OF I/0 DATABASE MUTEX 
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MUTEX SEPA 198¢ 08:45:26 LSYSVSRCIMUTEX RARS mee” 


‘ «SBTTL SCHSUNLOCK = UNLOCK MUTEX 
{FUNCTION DESCRIPTION: 


UNLOCK RELEASES OWNERSHIP OF THE SPECIFIED MUTEX 
RECA tt IVATES hy WAITING PROCESSES IF THE MUTEX HAS BECOME 
: AVAILABLE AS A CONSEQUENCE OF THIS UNLOCK REQUEST. 
; CALLING SEQUENCE: 
: BSB/JSB SCHSUNLOCK 
; INPUT Spay MO 
; RO = MUTEX ADDRESS 
; R4 = PCB ADDRESS OF CURRENT PROCESS 
; statics INPUTS: 
; CHSGQ_MWAIT = MUTEXT WAIT QUEUE HEADER 
Pcp oF” CURRENT PROCESS 
; IMPLICIT OUTPUTS: 
° eet TBS eee 
; SIDE erect: 
; TBS * 
CHSUNLOCK: : : UNLOCK MUTEX 
DSBINT #IPL RAISE TO SYNCH IPL 
ence ABN. PCB. "PCBSB_ rena STRUCTURE MUST BE PCB 
peck 9 a MTXCNT(R4) ees NOTE hee he PCB 


MORE STILL OWNED 
MOVB PCBSB_PRIBSAV(R4) ,PCBSB_ Phiptns) RESTORE SAVED BASE PRIORITY 


MOVB PCBS$B~PRISAV(R4) ,R1 T ORIGINA 

MOVB Ri .PCBSB pal cna) RESTORE IT 

MOVB  R1.G*SCH + AND ANNOUNCE IT 

FFS $0,833 .G"SCASGL_COMQS,R2: FIND PRIORITY OF NEXT COMPUTABLE PROCESS 

CMPB R12 : CHECK FOR DELAYED PREMPTION 

BLEQU § 10$ + NO, CONTINUE 

SOFTINT #IPL$_SCHED : ELSE RESCHEDULE WHEN IPL DROPS 
10$: EC MTX$W~OWNCNT (RO) tr; DECREMENT OWNERSHIP COUNT 

BGEQ EXITN ti: EXIT IF NOT LAST 

BBCC] @#MTX$V_WRT,(RO).EXITN :3; EXIT IF NO WRITE IN PROGRESS 

ti: OR PENDING 

UNLOCK: PUSHR #*M<R ti: SAVE PCB ADDRESS 

MOVAL G* cneée. “MWAIT, R3 ti: GET ADDRESS OF WAIT QUEU 

MOVL ti: AND HEAD PCB 

MOVZBL #PRI$_RESAVL,R2 ti: SET PRIORITY INCREMENT CLASS 
10$:  CMPL  R3,R4 ti: CHECK FOR END OF QUEUE 

BEQL 4=_«-3:0 23: YES, DONE 

CMPL (SP) ,PCBSL_EFWM(R4) tit IS PROCESS WAITING FOR THIS MUTEX 

BNE 0$ 32: NO. SKIP IT 

PUSHL  (R4) ti: SAVE FLINK 

BSBW SCHSCHSE ti: CHANGE TO EXECUTABLE STATE 

DECW WOHSW WOCNT(R3) ti: DECREASE QUEUE LENGTH 

POPR #*M<RE> siz RESTORE FLINK 
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EX - 
L SEP-1984 SYS.SRCIJMUTEX.MAR; (1) 
° 1 119 4 BB 10$ 23 AND CONTINUE 
54 4 D 118 4 208: MOVL (R4) RG sii FLINK ON TO NEXT PCB 
Fe 1 11 4 ARB 10$ 333 AND CONT 
1 BA 0O1 4 Y 30$: POPR #*M<RO,R4> 73 RESTORE REGISTERS 
1 471 EXITN: ENBINT 333 ENABLE INTERRUPTS 
05 : ; 126 EXIT: RSB ; AND RETURN 
126 474 NOTPCB: BUG_CHECK NOTPCB,FATAL ; STRUCTURE NOT PCB 
12A 475 ENB 
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PSECT No. Attributes 
“a 9 ( 9-3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
a) ( -) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
298.) O02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
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MUTEX = MUTEX WAIT ROUTINES 16-SEP-1984 00:37: A 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 


Initialization 9 :00.0 :00: 9% 
Command processing 1 2 700.4 :00:05.1 
Pass 1 2 :00:08.4 00:27. ¢ 
Symbol table sort :00:01. :00:04. 
ass 9 :00:01. :00:05.21 
Symbol table output : ‘ :00:00.57 
Psect synopsis output 8: é :00:00. 
Cross-reference output :00:00. 0:00:00. 
Assembler run totals 536 0:00:12.1 0:00:44. 


The working set Limit was 1350 pages. 
48294 bytes (95 pages) of virtual memory were used to buffer the intermediate sgde. 
There were 50 pages of symbol table space allocated to hold 872 non-local and 12 local symbols. 
475 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
2 pages of virtual memory were used to define ‘21 macros. 


Macro Library name Macros defined 


“$52 2SDUACE: ES¥S 08 JL1B8.MLB;1 12 * 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 6 

TOTALS (all Libraries) 18 

979 GETS were required to define 18 macros. 

There were no errors, warnings or information messages. 
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